subroutine init_run_param
  use run_param
  implicit none

  n_exe_event=0

  n_temp_profile=0

  nullify(temp_profile)

  return

end subroutine init_run_param
